home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00066_Well Item being dragged.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.4 KB  |  77 lines
  1. property pWellSprite, pDraggingMember, pSpr, pIngredient
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   mHideSprite(me)
  6. end
  7.  
  8. on mDragWellItem me, wellSprite, dragMember, cursorOffset, ingredient, pickupSound
  9.   replaceDraggingAnything()
  10.   hideToolTip()
  11.   storeLastIngredient(ingredient)
  12.   pIngredient = ingredient
  13.   storeHelpPointerState()
  14.   hideCursor()
  15.   if voidp(pickupSound) then
  16.     clickSound()
  17.   else
  18.     if pickupSound = #none then
  19.     else
  20.       soundFX(pickupSound, 0, 0)
  21.     end if
  22.   end if
  23.   pWellSprite = wellSprite
  24.   pDraggingMember = dragMember
  25.   pSpr.member = pDraggingMember
  26.   pSpr.loc = point(-1000, -1000)
  27.   if not ilk(cursorOffset, #point) then
  28.     cursorOffset = the mouseLoc
  29.   end if
  30.   placeCursor(cursorOffset)
  31.   pSpr.loc = cursorOffset
  32.   addToActorList(pSpr)
  33.   pSpr.visible = 1
  34. end
  35.  
  36. on mHideSprite me
  37.   pSpr.visible = 0
  38.   resetCursor()
  39. end
  40.  
  41. on mRelease me, message
  42.   global gDraggingBottle
  43.   removeFromActorList(pSpr)
  44.   resetCursor()
  45.   mHideSprite(me)
  46.   sendSprite(pWellSprite, message)
  47.   pWellSprite = 0
  48.   pIngredient = 0
  49. end
  50.  
  51. on mDropIt me
  52.   if pSpr.visible and (pSpr.memberNum > 0) then
  53.     mRelease(me, #mDropIt)
  54.   end if
  55. end
  56.  
  57. on mReplaceIt me
  58.   mRelease(me, #mDoneDragging)
  59. end
  60.  
  61. on stepFrame me
  62.   pSpr.loc = the mouseLoc
  63. end
  64.  
  65. on endSprite me
  66.   removeFromActorList(pSpr)
  67. end
  68.  
  69. on mouseDown me
  70.   mReplaceIt(me)
  71.   restoreHelpPointerState()
  72.   repeat while the stillDown
  73.     checkElapsedTime()
  74.     updateStage()
  75.   end repeat
  76. end
  77.